home *** CD-ROM | disk | FTP | other *** search
/ Super PC 19 / Super PC 19 (Curso OS-2 y shareware).iso / cursoos2 / cursoos2.cmd < prev    next >
Encoding:
Text File  |  1994-10-05  |  956 b   |  32 lines
  1. /* Start the Perfect Image Tutorial */
  2. rc = setlocal()
  3.  
  4. curdir = ""
  5. newdir = directory(curdir||"\CURSOOS2");
  6. if newdir = '' then
  7.   do
  8.     say "We are expecting to find the subdirectory PITUTOR"
  9.     say "under the TUTOR directory on your hard drive, but"
  10.     say "did not find it.  Please copy this subdirectory to"
  11.     say "your hard drive or run the tutorial from the CD-ROM."
  12.     exit
  13.   end
  14.  
  15. newdir = directory(curdir||"\CURSOOS2");
  16. if newdir = '' then
  17.   do
  18.     say "We are expecting to find the subdirectory UBLIB"
  19.     say "under the TUTOR directory on your hard drive, but"
  20.     say "did not find it.  Please copy this subdirectory to"
  21.     say "your hard drive or run the tutorial from the CD-ROM."
  22.     exit
  23.   end
  24.  
  25. umpath = value("UMPATH",,"OS2ENVIRONMENT")
  26. umpath = curdir"\CURSOOS2;"curdir"\CURSOOS2;"curdir"\CURSOOS2;"umpath
  27. rc = value("UMPATH",umpath,"OS2ENVIRONMENT")
  28.  
  29. "TELLPM CURSOOS2 C:\CURSOOS2"
  30.  
  31. rc = endlocal()
  32.